COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "BOARD"
C00008 ENDMK
C⊗;
BEGIN "BOARD"
DEFINE ⊂="COMMENT";
DEFINE CR="'15",LF="'12",CRLF="CR&LF",CRLF0="'15&'177&'21",TB="'11";
INTEGER I,J,K,L,EOF,CHAN1;
CHAN1←1;
SETFORMAT(2,0);
CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,0,1,0,EOF,0);
ENTER(CHAN1,"BOARD.DOC",0);

OUT(CHAN1,"   A    B    C    D    E    F    G    H    J    K    L    M    N    O    P    Q    R    S    T");

L←19;

OUT(CHAN1,CRLF&LF);
⊂  The top 3 sets of (lines with following two rows of |    |    | etc);

FOR I←1 STEP 1 UNTIL 3 DO BEGIN
  OUT(CHAN1,CVS(L)&" ");
  OUT(CHAN1,"+");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"----+");
  OUT(CHAN1," "&CVS(L)&CRLF0); L←L-1;
  FOR J←1 STEP 1 UNTIL 2 DO BEGIN
    OUT(CHAN1,"   |");
    FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
    OUT(CHAN1,CRLF0);
    END;
  END;

⊂  Top handicap row with two rows of |    | etc;
OUT(CHAN1,CVS(L)&" ");
FOR I←1 STEP 1 UNTIL 3 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 2 DO OUT(CHAN1,"+----");
OUT(CHAN1,"+ "&CVS(L)&CRLF0); L←L-1;
FOR J←1 STEP 1 UNTIL 2 DO BEGIN
  OUT(CHAN1,"   |");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
  OUT(CHAN1,CRLF0);
  END;

⊂  The next 5 sets std ending with |    |;

FOR I←1 STEP 1 UNTIL 5 DO BEGIN
OUT(CHAN1,CVS(L)&" ");
  OUT(CHAN1,"+");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"----+");
  OUT(CHAN1," "&CVS(L)&CRLF0); L←L-1;
  FOR J←1 STEP 1 UNTIL 2 DO BEGIN
    OUT(CHAN1,"   |");
    FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
    OUT(CHAN1,CRLF0);
    END;
  END;

⊂ Center handicap row with |    |;

OUT(CHAN1,CVS(L)&" ");
FOR I←1 STEP 1 UNTIL 3 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 2 DO OUT(CHAN1,"+----");
OUT(CHAN1,"+ "&CVS(L)&CRLF0); L←L-1;
FOR J←1 STEP 1 UNTIL 2 DO BEGIN
  OUT(CHAN1,"   |");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
  OUT(CHAN1,CRLF0);
  END;

⊂  The next 5 sets std ending with |    |;

FOR I←1 STEP 1 UNTIL 5 DO BEGIN
OUT(CHAN1,CVS(L)&" ");
  OUT(CHAN1,"+");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"----+");
  OUT(CHAN1," "&CVS(L)&CRLF0); L←L-1;
  FOR J←1 STEP 1 UNTIL 2 DO BEGIN
    OUT(CHAN1,"   |");
    FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
    OUT(CHAN1,CRLF0);
    END;
  END;

⊂ Bottom handicap row with two rows of |    | etc;

OUT(CHAN1,CVS(L)&" ");
FOR I←1 STEP 1 UNTIL 3 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 5 DO OUT(CHAN1,"+----");
OUT(CHAN1,"⊗----");
FOR I←1 STEP 1 UNTIL 2 DO OUT(CHAN1,"+----");
OUT(CHAN1,"+ "&CVS(L)&CRLF0); L←L-1;
FOR J←1 STEP 1 UNTIL 2 DO BEGIN
  OUT(CHAN1,"   |");
  FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
  OUT(CHAN1,CRLF0);
  END;

⊂  Now two sets of standard rows;

FOR I←1 STEP 1 UNTIL 2 DO BEGIN
  OUT(CHAN1,CVS(L)&" ");
  OUT(CHAN1,"+");
  FOR J←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"----+");
  OUT(CHAN1," "&CVS(L)&CRLF0); L←L-1;
  FOR J←1 STEP 1 UNTIL 2 DO BEGIN
    OUT(CHAN1,"   |");
    FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"    |");
    OUT(CHAN1,CRLF0);
    END;
  END;

⊂ Now the bottom row and we are done;

OUT(CHAN1,CVS(L)&" +");
FOR K←0 STEP 1 UNTIL 17 DO  OUT(CHAN1,"----+");
OUT(CHAN1," "&CVS(L)&CRLF0); L←L-1;
OUT(CHAN1,CRLF0);
OUT(CHAN1,"   A    B    C    D    E    F    G    H    J    K    L    M    N    O    P    Q    R    S    T");
OUT(CHAN1,CRLF0);
CLOSE(CHAN1); RELEASE(CHAN1);

END;